Collection of Tools & Utilities/Collection of Tools and Utilities.iso/ada/gwuada_5.zip/adaed/spider/draw7.ada

Text File | 1993-02-04 | 277b | 14 lines

WITH Spider; USE Spider;
PROCEDURE Drawing7 IS
BEGIN
Start;
Red;
WHILE NOT AtWall LOOP -- the WHILE statement starts the loop
     Step; --  any statements here are repeated
END LOOP;
Green;  --  then execution proceeds from here
Turn;
Step;
Quit;
END Drawing7;